home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / util / rexx / rmh.lha / RMH / Examples / getdate.rexx < prev    next >
OS/2 REXX Batch file  |  2001-05-24  |  873b  |  25 lines
  1. /* GetDate() example */
  2.  
  3. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  4.  
  5. inetDate="%m %w %d %Y %H:%M:%S GMT"
  6.  
  7. if GetDate("D","GMT") then do
  8.     say "GMT date:   " translateDate(formatdate("D",inetDate))
  9.     call GetDate("D") then do
  10.     say "Locale date:" translateDate(formatdate("D",inetDate))
  11. end
  12. else do
  13.     say "Can't find ENV:TZ"
  14.     say "Locale date:" translateDate(formatdate("D",inetDate))
  15. end
  16. exit
  17. /***************************************************************************/
  18. translateDate: procedure
  19.     d.0="Sun";d.1="Mon";d.2="Tue";d.3="Wed";d.4="Thu";d.5="Fri";d.6="Sat"
  20.     m.1="Jan";m.2="Feb";m.3="Mar";m.4="Apr";m.5="May";m.6="Jun";m.7="Jul";m.8="Aug";m.9="Sep";m.10="Oct";m.11="Nov";m.12="Dec"
  21.     parse arg i j rest
  22.     i=i%1
  23.     return d.j"," m.i || rest
  24. /***************************************************************************/
  25.